home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AEDPARSE.BAS < prev    next >
BASIC Source File  |  1987-01-11  |  384b  |  19 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Parse the directory name for usage in OPEN'
  4. '                Include the COMMON values
  5. rem $include:'AESHARED.BAS'            
  6.     
  7. sub d.parse(a$) static
  8.  
  9.         call ctrl.trim(a$)
  10.         if len(a$) then
  11.             if right$(a$,1)<>"\" then
  12.                 a$=a$+"\"
  13.             end if
  14.         end if
  15.  
  16.     end sub
  17.  
  18.  
  19.